home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / editors / unity331 / fpl86.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-09-19  |  361 b   |  22 lines
  1. Program Plink86ErrorFilter;
  2.  
  3. Var
  4.   Source : Text;
  5.   Line   : String;
  6.  
  7. Begin
  8.   Assign(Source,ParamStr(1));
  9.   {$I-}
  10.   Reset(Source);
  11.   {$I+}
  12.   If IOResult = 0 Then
  13.   Begin
  14.     While Not Eof(Source) Do
  15.     Begin
  16.       ReadLn(Source,Line);
  17.       If Pos('Symbol ',Line) = 1 Then WriteLn(', 0, 0, ',Line);
  18.     End;
  19.     Close(Source);
  20.   End;
  21. End.
  22.